home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-170 dbase 10 for windows
/
1.ima
/
SAMPLES.PAK
/
DLLSAMP.PRG
< prev
next >
Wrap
Text File
|
1993-07-26
|
2KB
|
45 lines
*******************************************************************************
* PROGRAM: Dllsamp.prg
*
* WRITTEN BY: Borland Late Night Crew
*
* DATE: 5/93
*
* UPDATED: 6/30/93
*
* VERSION: Alpha α
*
* DESCRIPTION: This program shows how you could access Windows functions
* from Bladerunner. All you have to do is declare the
* function you want to use as an extern before you call it.
* Bladerunner allows you to use CWORD,CLONG,CPTR, and CVOID
* for the return type or parameters of external functions.
*
* PARAMETERS: none
*
* CALLS: BWCCMessagebox(), Getfocus() && Windows functions
*
* USAGE: DO Dllsamp
*
*
*
*******************************************************************************
extern cword BWCCMessagebox(cword,cptr,cptr,cword) bwcc.exe
&& brings up a
&& Borland dialog box
extern cword getfocus() user.exe && returns the handle of the window
&& currently in focus
* parameter 1 -- current window in focus
* parameter 2 -- caption of the dialog box
* parameter 3 -- the message in the dialog box
* parameter 4 -- dialog box style
? BWCCMessagebox(getfocus(),"Hello ! ", "BWCCMessageBox() called from dBASE",17)
**************************** End of Dllsamp.prg *******************************